﻿Public Class ArticuloProveedorBarra

    Dim _CIA, _ARTCOD, _PROVCOD, _BARCOD, _ARTNIV, _UNMCOD As String
    Dim _CANT As Integer
    Dim _ESPACIO, _TAMANIO, _OBSERVA As String
    Dim _APCCOD As String

    Sub New()

    End Sub

    Sub New(ByVal cia As String, ByVal articulo As String, ByVal proveedor As String, ByVal codbarra As String, ByVal unidad As String, ByVal cantidad As Integer, ByVal nivel As String, ByVal esp As String, ByVal tama As String, ByVal obs As String, apc As String)
        Me._CIA = cia
        Me._ARTCOD = articulo
        Me._PROVCOD = proveedor
        Me._BARCOD = codbarra
        Me._UNMCOD = unidad
        Me._CANT = cantidad
        Me._ARTNIV = nivel
        Me._ESPACIO = esp
        Me._TAMANIO = tama
        Me._OBSERVA = obs
        Me._APCCOD = apc
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(value As String)
            _CIA = value
        End Set
    End Property

    Public Property ART_Codigo() As String
        Get
            Return _ARTCOD
        End Get
        Set(value As String)
            _ARTCOD = value
        End Set
    End Property

    Public Property PROV_Codigo() As String
        Get
            Return _PROVCOD
        End Get
        Set(value As String)
            _PROVCOD = value
        End Set
    End Property

    Public Property BAR_Codigo() As String
        Get
            Return _BARCOD
        End Get
        Set(value As String)
            _BARCOD = value
        End Set
    End Property

    Public Property UND_Medida() As String
        Get
            Return _UNMCOD
        End Get
        Set(value As String)
            _UNMCOD = value
        End Set
    End Property

    Public Property CANTIDAD() As Integer
        Get
            Return _CANT
        End Get
        Set(value As Integer)
            _CANT = value
        End Set
    End Property

    Public Property ART_Nivel() As String
        Get
            Return _ARTNIV
        End Get
        Set(ByVal value As String)
            _ARTNIV = value
        End Set
    End Property

    Public Property APC_Espacio() As String
        Get
            Return _ESPACIO
        End Get
        Set(ByVal value As String)
            _ESPACIO = value
        End Set
    End Property

    Public Property APC_Tamanio() As String
        Get
            Return _TAMANIO
        End Get
        Set(ByVal value As String)
            _TAMANIO = value
        End Set
    End Property

    Public Property APC_Observacion() As String
        Get
            Return _OBSERVA
        End Get
        Set(ByVal value As String)
            _OBSERVA = value
        End Set
    End Property

    Public Property APC_Codigo() As String
        Get
            Return _APCCOD
        End Get
        Set(ByVal value As String)
            _APCCOD = value
        End Set
    End Property

End Class
